Variable, A, B, C, D, E, xx, yy, q, MM, MM69, warez, num, Tick // A)new mail, B)popupmenu// C)old mail, D)mailbomb E) Mail ignoreB = PopupMenu "Count New Mail
Count Old Mail
Mailbomb
Mail Ignore
Mail Erase
Keep mail as new
Faxbomb
MMer info
MMer, kinda
"// ------------------------------------------------------------If B = "Count new mail" A = ListCount If Window.Front = "New Mail" Type Command "C" Type ListCount "New mail" A = ListCount Clipboard Message "There are " & A & " pieces of mail." End If End If If B = "Count old mail" Menu"Mail" "Check mail you've read" C = ListCount If Window.Front = "Check mail you've read" Type Command "C" Type ListCount "Check mail you've read" C = ListCount Clipboard Message "There are " & C & " pieces of old mail" End If End If // ---------------------------------------------------------If B = "Mailbomb" q = 1 D = AskText "Who do you wish to mailbomb? (If multiple people, seperate screen names with a comma[for example: Steve Case, TOSAdvisor, MYMother])", "Kefka1781, Jason1781, Mog1781", "BoMB" Repeat 550 Type Command "M" Clipboard = D SelectMenu "edit", "paste" Type Tab Type Tab Clipboard = "•••Mailbomb. Hahaha•••" SelectMenu "edit", "paste" Type Tab Clipboard = "•••••You are being mailbombed my KefkaHeLL v0.69. Have a nice day!!! This is Message Number " & q & " of a possible 550.•••••" SelectMenu "edit", "paste" Click 37, 183 q = q + 1 If Window.Front = "America Online Flashsession Status" CloseWindow Message "Mailbomb has been completed. It took " & q & " mails. Have a nice day, click “OK” to exit. Note that if this bomb was on multiple Screen Names, only one may have been filled." Exit End If End Repeat End If // ----------------------------------------------------If B = "Mail ignore" E = AskButton "Is your New Mail window is in Front?", "YeaH.", "Nope." If Window.Front <> "New Mail" Message "LIAR!!!!!! New Mail window is not in front!!!!!!!!" Exit End If If E = 1 Repeat 550 Click 354, 239 Type " " End Repeat End If End If // --------------------------------------------------------If B = "Mail erase" If Window.Front <> "New Mail" Message "Make sure new mail window is in front." End If Repeat 550 Click 161, 272, If Window.Front = "New Mail" Pause Else Type "
" If Window("New Mail").Exists If Window.Front <> "New Mail" SelectMenu "Windows", "New Mail" End If End If End If End Repeat End If // -------------------------------------------------------------If B = "Keep mail as new" Message "Make sure your mail window is opened and the first piece of mail is hilighted." Repeat 550 Click 283, 271 Type " " End Repeat End If // -------------------------------------------------------------If B = "MMer info" Message "This isn't an MMer, per se. Its simply a thing to make sending out warez easier than doing it by hand." Message " It doesn't take into account people's mailboxes becomes full and such. It simply makes mailing look prettier. If you dont care, select, “MMer, kinda”"End If // ----------------Variable Problmz, dumbass, chktxtIf B = "MMer, kinda" Pause 4 SelectMenu "Members", "Disable IMs" Pause 3 If Window.Front = "Disable IMs" Type Return Type Return Else Pause 2 If Window.Front = "Disable IMs" Type Return Type Return Else SelectMenu "Disable IMs" Pause 2 Type Return Type Return End If End If MM = AskText "Enter the Screen names of the people recieving this between the parentesis.", "(( ))", "oK" warez = AskText "How many Warez do you want to send?", "100", "KeWL" If warez <= 0 Message "you cannot sent 0 or fewer pieces of mail." Exit End If MM69 = AskText "What piece of mail are you starting from (in case you're continuing an MM)", "1", "Ok." If Window("New Mail").Exists SelectMenu "windows", "New Mail" End If If Window.Exists <> "New Mail" SelectMenu "Mail", "Read New Mail" Pause 3 End If Repeat warez Count Ticks = Tick Type Return Type Command "." Pause 1 Click 34, 21 Clipboard = MM SelectMenu "Edit", "paste" Type Tab Type Tab SelectMenu "Edit", "Select All" SelectMenu "Edit", "Copy" Clipboard = Replace "Fwd: ", Clipboard, "", 1 SelectMenu "edit", "paste" Type Tab SelectMenu 0, "Times" SelectMenu 0, "Dark Blue" SelectMenu 0, "18" Clipboard = "This MassMail has been done By KefkaHeLL™ v0.69, The latest in Scrolling Technology.
Contact Kefka for a Copy." SelectMenu 0, "Jester" SelectMenu "Edit", "Paste" SelectMenu 0, "Red" SelectMenu 0, "14" Clipboard = "
This mail is number " & MM69 & " out of " & warez & " mails. And took " & (Tick * 60) & " seconds to send." SelectMenu "edit", "Paste" // --------------------- If MM69 = warez SelectMenu 0, "Green" SelectMenu 0, "Times" SelectMenu 0, "24" Clipboard = "•••MassMail Complete!!!•••" Type "" CloseWindow Click 297, 271 SelectMenu "Members", "Enable IMs" Type Return Type Return Exit End If // ------------------ Type "" If Menu("*Window*", "*Flash*").Exists Click 56, 51 SelectMenu "Edit", "Select All" SelectMenu "Edit", "Copy" Problmz = Clipboard dumbass = ListItems Problmz, - 1 dumbass = Replace "Invalid addressee “", dumbass, "" // / dumbass is removed chktxt = Find "-", dumbass dumbass = SubString dumbass, 1, (chktxt - 2) Type Command "w" MM = Replace dumbass, MM, "" Type Tab SelectMenu "Edit", "Select All" Clipboard = "((" & MM & "))" SelectMenu "Edit", "Paste" Type "" End If If Window.Front = "Untitled 1" Type Return Type Tab Type Tab Type Tab Type " " Type "" If Window.Front = "Untitled 1" Type " " Type "" End If End If CloseWindow Click 297, 271 Type " " MM69 = MM69 + 1 End Repeat End If
